home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_18_1987_Transactor_Publishing.d64 / scrolling banner (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  190b  |  5 lines
  1. 10 input"message";m$: input"viewing area";va: print chr$(147): b$=m$+"..."
  2. 20 a=18-len(m$)/2: if va < len(m$) then a=20-va/2
  3. 30 b$=right$(b$,len(b$)-1)+left$(b$,1):c$=left$(b$,va):printchr$(19)chr$(17)tab(a)c$
  4. 40 for x=1 to 70: next: goto 30
  5.